########################################################################################################################
#### Load Data
########################################################################################################################

library(plyr)
library(ggplot2)


myData <- iris

save(myData, file=".myData.RData")

########################################################################################################################
#### Transform
########################################################################################################################

load(".myData.RData")

transformedData <- transform(iris, newAttr="foobar")

save(transformedData, file=".trafoData")


########################################################################################################################
#### Visualize Data
########################################################################################################################

load(".trafoData")

qplot(newAttr, data=transformedData, geom="bar")



